\ 求斐波那契数列任意一项
: FI ( n -- ) { \ A -- }
  3 CELLS LOCALALLOC: A
  0 A ! 1 A 1 CELLS + ! 1 A 2 CELLS + !
  DUP 1 DO DUP I SWAP <= IF
     A 1 CELLS + @ A @ + A 2 CELLS + !
     A 1 CELLS + @ A !
     A 2 CELLS + @ A 1 CELLS + !
     ELSE LEAVE
     THEN
  LOOP
  A 2 CELLS + @ . DROP
;

: TEST 11 1 DO I FI LOOP ;
